erase clientes.txt 
legal(8,6,22,78,'Exportacao do Cadastro de Clientes')
sele clientes
go top
mcontador = 0
while .not. eof()
        if ativo = 'I'
           skip
           loop
        endif
        @ 12,8 say 'Cliente : ' + str(codigo,6) + ' ' + nome
        mregistro  = 'TRC'
        mregistro += space(5)
        mregistro += space(2) 
        mregistro += '0'              
        mregistro += cgc
        mregistro += nome + '  '
        mregistro += left(nome,20)
        mregistro += space(10)
        mregistro += endereco + '  ' + space(10) + space(20)
        if empty(cep)
           mcep = '70000000'
        else
           mcep = cep
        endif
        mregistro += trans(mcep,'@R 99999-999')
        mregistro += cidade          // bairro 
        mregistro += cidade      // municipio
        mregistro += uf           
        mregistro += space(8) // data do inicio de atividade
        mregistro += space(5) + fone1
        mregistro += space(5) + fax              
        mregistro += left(email,50) + space(60)
        if empty(inscricao)
           minscricao = 'ISENTO              '
        else                                 
           minscricao = inscricao
        endif
        mregistro += minscricao
        mregistro += space(20) 
        mregistro += '          '   
        mregistro += space(18)  // pessoa fisica
        mregistro += space(5)   // pessoa fisica
        mregistro += space(2)   // pessoa fisica
        mregistro += space(8)   // pessoa fisica
        mregistro += '0'        // sexo masculino
        mregistro += codpais    // codigo do pais 
        mregistro += codibge    // codigo do ibge  
        mregistro += space(86)  // pessoa fisica
        set devi to printer
        set printer to clientes.txt additive
        if mcontador = 0
           @ prow(),0   say mregistro
        else
           @ prow()+1,0 say mregistro
        endif
        mcontador = 1
        set printer to
        set devi to screen
        sele clientes
        skip
enddo
mensa(10,'Arquivo gerado com sucesso !',2)
retu
